home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / comms / internet / html-related / envwww09 / www / arexx / style.ged < prev    next >
Text File  |  1996-09-14  |  2KB  |  121 lines
  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Create empty list */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4. arg TYPE
  5.  
  6. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  10. if (RC ~= 0) then
  11.     exit
  12.  
  13. OPTIONS FAILAT 6                            /* ignore warnings         */
  14. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  15.  
  16. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  17.  
  18. 'FIND FIRST QUIET STRING="<BODY"'
  19.  
  20. if (RC = 0) then do
  21.  
  22.     'GOTO STEP 5'
  23.  
  24.     'QUERY LINE VAR=BODYLINE'
  25.  
  26.     if (TYPE = 1) then do
  27.  
  28.         TAG     = "TEXT=#"
  29.         DEFAULT = "#000000"
  30.     end
  31.  
  32.     if (TYPE = 2) then do
  33.  
  34.         TAG     = "LINK=#"
  35.         DEFAULT = "#0000FF"
  36.     end
  37.  
  38.     if (TYPE = 3) then do
  39.  
  40.         TAG     = "BGCOLOR=#"
  41.         DEFAULT = "#FFFFFF"
  42.     end
  43.  
  44.     'FIX VAR=DEFAULT'
  45.     'FIX VAR=TAG'
  46.  
  47.     'FIND NEXT QUIET STRING="' || TAG || '"'
  48.  
  49.     if (RC = 0) then do
  50.  
  51.         'QUERY LINE'
  52.  
  53.         if (RESULT = BODYLINE) then do
  54.  
  55.             REPLACE = 'TRUE'
  56.  
  57.             'FIND NEXT STRING="#"'
  58.  
  59.             'QUERY BUFFER VAR=BUFFER'
  60.             'QUERY COLUMN VAR=COLUMN'
  61.  
  62.             DEFAULT = substr(BUFFER, COLUMN, 7)
  63.         end
  64.         else
  65.             REPLACE = 'FALSE'
  66.     end
  67.     else
  68.         REPLACE = 'FALSE'
  69.  
  70.     'REQUEST STRING TITLE="Color selection" BODY="Set color (format: #XXXXXX)" OLD="' || DEFAULT || '" VAR=COLOR'
  71.  
  72.     if (RC = 0) then do
  73.  
  74.         if (substr(COLOR, 1, 1) = "#") then
  75.             COLOR = SUBSTR(COLOR, 2)
  76.  
  77.         if (REPLACE = 'TRUE') then do
  78.  
  79.             'RIGHT'
  80.             'DEL'
  81.             'DEL'
  82.             'DEL'
  83.             'DEL'
  84.             'DEL'
  85.             'DEL'
  86.  
  87.             'TEXT T="' || COLOR || '"'
  88.  
  89.         end
  90.         else
  91.             'TEXT T=" ' || TAG || COLOR || '"'
  92.     end
  93. end
  94. else do
  95.  
  96.     'REQUEST BODY="Body tag not found - can not add color|information.||Please create a HTML frame first. Run the|Document Wizard if you need assistance." BUTTON="!WIZARD|_Ok"'
  97.  
  98.     if (RESULT=1) then do
  99.  
  100.         'UNLOCK'
  101.  
  102.         address 'AREXX'
  103.  
  104.         'golded:tools/www/arexx/document.ged'
  105.  
  106.         exit
  107.     end
  108. end
  109.  
  110. /* ---------------------------- END OF YOUR CODE --------------------- */
  111.  
  112. 'UNLOCK' /* VERY important: unlock GUI */
  113. EXIT
  114.  
  115. SYNTAX:
  116.  
  117. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  118. 'UNLOCK'
  119. EXIT
  120.  
  121.